{$CLEO .cs}

script_name 'B737FIRE' 

:B737FIRE_19
wait 0 
if 
   Actor.DrivingVehicleType($PLAYER_ACTOR, 577)
jf @B737FIRE_19 
2@ = Actor.CurrentCar($PLAYER_ACTOR)
if 
03C9:   car 2@ damaged
jf @B737FIRE_19 
1@ = Audiostream.Load3D("engfire\737fire.mp3") 
Audiostream.PerformAction(1@, AudioStreamState.Play)
Audiostream.LinkToCar(1@, 2@)
Audiostream.Loop(1@, 1)
0ABC: set_audio_stream 1@ volume 8.0

:loop
wait 0
if
8119:   NOT 03C9: car 2@ damaged 
jf @END
if
  Actor.InCar($PLAYER_ACTOR, 2@)
jf @END
if 
03C9: car 2@ damaged 
jf @END
jump @loop

:END
audiostream.Release(1@)
jump @B737FIRE_19
